home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.0-l / gcl-1 / usr / local / lib / gcl-1.0 / doc / ansi-doc.el next >
Encoding:
Text File  |  1994-05-10  |  3.1 KB  |  93 lines
  1. ;; Copyright  William F. Schelter.   1994
  2. ;; Licensed by GNU public license.
  3.  
  4. ;; This file contains function find-ansi-doc which finds documentation in the
  5. ;; standard common lisp ansi documentation (1350 pages!), and puts it on
  6. ;; the screen at the correct page using xdvi.  If there is more than one
  7. ;; reference it successively finds them.  You need dpANS2/*.dvi
  8. ;; dpANS2/index.idx from parcftp.xerox.com (13.1.64.94) You also need
  9. ;; xdvi.   You may gzip the .dvi files and it will unzip them into tmp
  10. ;; as needed.
  11.  
  12.  
  13. (defvar ansi-doc-dir "/usr/local/doc/dpANS2")
  14. (defvar ansi-doc-alist nil)
  15.  
  16. (defun create-index-el-from-index-idx ()
  17.   (interactive)
  18.   (let (tem)
  19.     (cond ((not ansi-doc-alist)
  20.        (setq tem (concat ansi-doc-dir "/index.el"))
  21.        (or (file-exists-p tem)
  22.            (progn
  23.          (shell-command
  24.           (concat "echo '(setq ansi-doc-alist (quote (( ' > " tem))
  25.          (shell-command
  26.           (concat "cat " ansi-doc-dir "/index.idx "
  27.               "| sed "
  28.               " -e 's/\\!9\\([A-Z]\\):\\([^\\!]*\\)\\!\\!/)(\"\\2\" \\1/g' "
  29.               " -e 's:{$\\\\spLT \\$}:<:g' "
  30.               " -e 's:{$\\\\spGT $}:>:g' "
  31.               " -e 's:\\\\&:\\&:g' "
  32.               " -e 's:\\([0-9]\\),:\\1:g'"
  33.               " -e 's:\\([A0-9][0-9]*\\)--\\([0-9][0-9]*\\):(\\1 . \\2):g'"
  34.               " | sort -r  "
  35.               " >> " tem))
  36.          (shell-command (concat "echo '))))' >>  " tem))))
  37.        
  38.        ))))
  39. (defun maybe-gzip-to-tmp (file &optional dir)
  40.   "If file exists with  .gz  added to it, then unzip it to /tmp and
  41. return that file otherwise return file"
  42.   (let (tmp-file)
  43.     (cond  ((file-exists-p (concat file ".gz"))
  44.         (setq tmp-file
  45.               (file-name-nondirectory file))
  46.         (or (file-exists-p tmp-file)
  47.         (progn (message "gzipping %s in /tmp for future use" file)
  48.                (shell-command (concat "gzip -dc < " file ".gz > "
  49.                           tmp-file ))))
  50.         tmp-file)
  51.        (t file))))
  52.  
  53. (defun find-ansi-doc ()
  54.   "Find the documentation in the ansi draft on a particular function
  55. or topic.   If there are several pieces of documentation then go through
  56. them successively.   Requires copying the "
  57.   (interactive )
  58.   (let (x tem name lis first chap tmp-chap)
  59.     (or ansi-doc-alist
  60.     (progn
  61.       (create-index-el-from-index-idx )
  62.       (load (concat ansi-doc-dir "/index.el"))))
  63.     (setq name (completing-read "Doc on: " ansi-doc-alist nil t))
  64.     (progn  (setq ans nil)   (setq lis ansi-doc-alist)
  65.         (while lis
  66.           (cond ((equal (car  (car lis)) name)
  67.              (setq ans (append ans (cdr  (cdr (car lis)))))))
  68.           (setq lis (cdr lis)))
  69.         )        
  70.     (setq tem ans)
  71.     (if (cdr tem) (setq first "First") (setq first ""))
  72.     (while tem
  73.       (setq x (car tem))
  74.       (setq chap (concat ansi-doc-dir
  75.           (downcase (format "/chap-%s.dvi"  (car x)))))
  76.       (setq chap (maybe-gzip-to-tmp chap))
  77.       (message "%s Doc in Chapter %s page %s) %s .." first (car x) (cdr x))
  78.       (if (cdr tem) (setq first "Next") (setq next "Final"))
  79.       (shell-command (concat "xdvi  -expert -xoffset .2 -yoffset -.2 "
  80.                  " -paper 7.2x8.5 "
  81.                  " -display "
  82.                  (or x-display-name ":0")
  83.                  "  -geometry -2-2 +" (+ (cdr x) 2)" "
  84.                  chap
  85.                  ))
  86.       (setq tem (cdr tem))
  87.  
  88.       )
  89.     )
  90.   (message nil)
  91.   
  92.   )
  93.